' This program based on QB64 program by "bplus" in the Basic4All forums
' http://basic4all.info8-hosting.info/index.php?topic=60.0
'
'🟠 DECLARATIONS
	Const nStars = 1000, nEnemies = 35 'b+ mod of some game
	Dim SX(nStars), SY(nStars), SC(nStars) As long : dim star_background%(475000) '🔸stars stuff
	Dim EX(nEnemies), EY(nEnemies), EC(nEnemies) As long '🔸enemy stuff
	Dim As Double HX, HY, i, hits, score
	HX = 320: HY = 400  : dim hero%(10) '🔸hero stuff (you)
'🟠 GAME SETUP
	Screen 18: gosub setup_stars : gosub setup_enemies : gosub setup_hero : gosub setup_for_start
'🟠 MAIN PROGRAM
	Do
		cls : PUT (0, 0), star_background%, pset : Print "Hits:"; hits, "Score:"; score : PUT (HX-10, HY-10), hero%, pset
		For i = 1 To nEnemies '🔸the enemies
			Circle (EX(i), EY(i)), 10, EC(i)
			If Sqr((EX(i) - HX) ^ 2 + (EY(i) - HY) ^ 2) < 20 Then '🔸collision
				Sound 2000, 3: hits = hits + 1
				EX(i) = Int(Rnd * 600 + 20): EY(i) = -480 * Rnd '🔸move that bad boy!
				If hits = 10 Then Print "Too many hits, goodbye!": End
			End If
			EY(i) = EY(i) + Int(Rnd * 5)
			If EY(i) > 470 Then EX(i) = Int(Rnd * 600 + 20): EY(i) = -480 * Rnd: score = score + 1
		Next i
		k$ = lcase$(inkey$)
		If k$ = "m" Then HY += 1 
		If k$ = "k" Then HY -= 1
		If k$ = "a" Then HX -= 1
		If k$ = "s" Then HX += 1
		If HX < 10 Then HX = 10
		If HX > 630 Then HX = 630
		If HY < 10 Then HY = 10
		If HY > 470 Then HY = 470
Loop
'🟠 SUBROUTINES
setup_stars:
	cls
	For i = 1 To nStars
		SX(i) = Int(Rnd * 640) : SY(i) = Int(Rnd * 480) : SC(i) = (55 + Rnd * 200) *  256^2 +  (55 + Rnd * 200) * 256 + (55 + Rnd * 200)
	Next i
	For i = 1 To nStars
		PSet (SX(i), SY(i)), SC(i)
	Next i
	GET (0,0)-(640,480),star_background% : cls : return
setup_enemies:
	For i = 1 To nEnemies
		EX(i) = Int(Rnd * 600 + 20) : EY(i) = -2 * 480 * Rnd + 480 : EC(i) = (55 + Rnd * 200) * 256^2 + (55 + Rnd * 200) * 256 + (55 + Rnd * 200)
	Next i
	return
setup_hero:
	cls : Line (0, 0)-(19,19), &HFFFFFF00, BF : GET (0,0)-(19,19),hero% : cls : return
setup_for_start:
	print "To move, use these keys:" : print "[A] = Left"  : print "[S] = Right"  : print "[M] = Down"  : print "[K] = Up" 
	print : print "Position your fingers on these keys, and press a key to start the game." : while inkey$ = "" : wend : return